1 GOSUB2000:POKE648,4:POKE53272,21
2 T(0)=20
3 T(1)=30
4 T(2)=40
5 FORI=0TO24:POKE54272+I,0:NEXT:POKE54296,15
7 FORI=0TO2:POKE54278+7*I,14*16+15:POKE54272+7*I,T(I):POKE54273+7*I,T(I)
8 POKE54276+7*I,33:NEXT
9 FORI=0TO2:POKE54276+7*I,32:NEXT
10 POKE53281,13:POKE53280,13:POKE53272,25
20 PRINT"[147]        T[212]I[201]M[205]E[197]  T[212]O[207]  S[211]E[197]N[206]D[196]"
21 PRINT"          G[199]R[210]E[197]E[197]T[212]I[201]N[206]G[199]S[211]"
22 FORI=1TO2500:NEXT
24 PRINT"     I[201]N[206]  A[193]L[204]P[208]H[200]A[193]B[194]E[197]T[212]I[201]C[195]A[193]L[204]"
25 PRINT"               O[207]R[210]D[196]E[197]R[210]"
26 FORI=1TO2500:NEXT:PRINT"[147]";:POKE53281,3:POKE53280,3
100 READA$:IFA$="***"THEN200
110 PRINTSPC(20-LEN(A$)/2)A$
120 GOTO100
200 PRINT"[145][159]LOAD"CHR$(34)"06*"CHR$(34)",8:"
210 PRINT"RUN: [153]A[193]N[206]D[196]  T[212]H[200]E[197]  R[210]E[197]S[211]T[212].[174].[174].[174][159][145][145][145][145][145][145][145][145]"
220 POKE198,2:POKE631,13:POKE632,13
900 END
1000 DATA "A[193]B[194]O[207]M[205]I[201]N[206]A[193]T[212]I[201]O[207]N[206]"
1003 DATA "A[193]C[195]T[212]I[201]V[214]E[197]"
1004 DATA "A[193]L[204]B[194]I[201]O[207]N[206]  C[195]R[210]E[197]W[215]"
1005 DATA "A[193]L[204]P[208]H[200]A[193]  F[198]L[204]I[201]G[199]H[200]T[212]"
1008 DATA "A[193]N[206]T[212]I[201]C[195]"
1010 DATA "A[193]T[212]L[204]A[193]N[206]T[212]I[201]S[211]"
1012 DATA "B[194]E[197]Y[217]O[207]N[206]D[196]  F[198]O[207]R[210]C[195]E[197]"
1015 DATA "B[194]Y[217]T[212]E[197]R[210]A[193]P[208]E[197]R[210]S[211]"
1018 DATA "C[195]R[210]E[197]S[211]T[212]"
1020 DATA "E[197]X[216]T[212]E[197]N[206]D[196]"
1030 DATA "F[198]4[180]C[195]G[199]"
1040 DATA "L[204]E[197]P[208]S[211]I[201]  D[196]E[197]V[214]E[197]L[204]O[207]P[208]M[205]E[197]N[206]T[212]S[211]"
1080 DATA "O[207]R[210]I[201]G[199]O[207]"
1090 DATA "O[207]X[216]Y[217]R[210]O[207]N[206]"
1095 DATA "P[208]A[193]L[204]A[193]C[195]E[197]"
1100 DATA "P[208]A[193]N[206]I[201]C[195]"
1120 DATA "S[211]M[205]A[193]S[211]H[200]  D[196]E[197]S[211]I[201]G[199]N[206]S[211]"
1150 DATA "T[212]H[200]E[197]  S[211]H[200]A[193]R[210]K[203]S[211]"
1200 DATA "T[212]O[207]P[208]A[193]Z[218]"
1500 DATA "***"
2000 POKE53281,0:POKE53280,0
2010 PRINT"[147]      STILL SOMETHING TO COME...?":GOSUB2020:GOSUB2100
2015 PRINT"[147]            C64 RULEZ!!!!!!":GOSUB2020:GOTO8000
2020 FORI=1TO500:NEXT
2030 FORI=0TO255:POKE53280,I:NEXT
2035 FORI=0TO20:PRINT"[155]SPAMMER";
2036 PRINTMID$("[184][182]I[200][210][146][171][209]M[208][186][162][181][172][165][146] [185]G[213][198][200][200][190][165][146][161][184][165]",RND(0)*15+1,RND(0)*15+1);
2037 PRINTMID$("[184][182]I[200][210][146][171][209]M[208][186][162][181][172][165][146] [185]G[213][198][200][200][190][165][146][161][184][165]",RND(0)*15+1,RND(0)*15+1);
2038 PRINTMID$("[184][182]I[200][210][146][171][209]M[208][186][162][181][172][165][146] [185]G[213][198][200][200][190][165][146][161][184][165]",RND(0)*15+1,RND(0)*15+1);
2039 PRINTMID$("[184][182]I[200][210][171][209][146][208][186][213][162][181][172][165][146][213][198][200][200][202][190][188][165][161][184][165][187][182][181]",RND(0)*15+1,RND(0)*15+1):NEXT
2040 POKE53281,0:POKE53280,0
2050 RETURN
2100 POKE648,48:PRINT"[147]";:GOSUB3000
2105 POKE648,52:PRINT"[147]";:GOSUB4000
2110 POKE648,56:PRINT"[147]";:GOSUB5000
2115 POKE648,60:PRINT"[147]";:GOSUB6000
2120 POKE648,4:PRINT"[147]";
2200 GOTO7000
2999 END
3000 PRINT""
3100 PRINTSPC(7)"        [169]  [223] [169] [223]"
3110 PRINTSPC(7)"  [146][169][223]  [169][223]   "
3120 PRINTSPC(7)"              "
3130 PRINTSPC(7)"         "
3140 PRINTSPC(7)"         "
3150 PRINTSPC(7)"           "
3160 PRINTSPC(7)"          "
3170 PRINTSPC(7)"          "
3180 PRINTSPC(7)"   [223][169]        "
3190 PRINTSPC(7)"     [146][223]  [146][169]    [146][223] [146][169]"
3999 RETURN
4000 PRINT""
4100 PRINTSPC(7)"   [223][169]   [223][169]   [223] [169]   [223]"
4110 PRINTSPC(7)" [146][223] [223] [146][169][223]  [146][169][223]   [146][169][223] "
4120 PRINTSPC(7)" [146][223]     "
4130 PRINTSPC(7)" [169][146][169]   [223]  "
4140 PRINTSPC(7)"      [146][223]   [223]  "
4150 PRINTSPC(7)" [146][223] [223]     [146][223]   "
4160 PRINTSPC(7)" [146][223]      "
4170 PRINTSPC(7)"       "
4180 PRINTSPC(7)" [169]    [223][169]   [223][169] "
4190 PRINTSPC(7)"    [146][169]  [146][223]   [146][169] [146][223]   [146][169]"
4999 RETURN
5000 PRINT""
5100 PRINTSPC(7)"   [223]      [223][169] [169]   [223]"
5110 PRINTSPC(7)" [146][223][223]  [146][223] [146][169]  [146][169][223] "
5120 PRINTSPC(7)"        "
5130 PRINTSPC(7)"        "
5140 PRINTSPC(7)"           "
5150 PRINTSPC(7)"        "
5160 PRINTSPC(7)"       "
5170 PRINTSPC(7)"       "
5180 PRINTSPC(7)" [169][146][169]    [223][169] "
5190 PRINTSPC(7)"   [146][169]       [146][223]   [146][169]"
5999 RETURN
6000 PRINT""
6080 PRINTSPC(7)"[169][146][169]"
6090 PRINTSPC(7)"[169][146][169]"
6100 PRINTSPC(7)"[169] [146][169]"
6110 PRINTSPC(7)"[169] [146][169][169]     [223]"
6120 PRINTSPC(7)"[169]  [146][169][169] [146][169] [146][223] [223]"
6130 PRINTSPC(7)"[169]  [146][169] [146][169] [146][223] "
6140 PRINTSPC(7)"[169]  [146][169]   "
6150 PRINTSPC(7)"[169]            [146][169] [169] [223] "
6160 PRINTSPC(7)"[169]  [146][169] [169][146][169] [146][223][223] "
6170 PRINTSPC(7)"[169]  [146][169] [169][146][169] [146][223][223] "
6180 PRINTSPC(7)"[169] [146][169]     "
6190 PRINTSPC(7)"[169] [146][169][223] [223] [169] [146][169]"
6200 PRINTSPC(7)"[169][146][169][223]     [146][169]"
6210 PRINTSPC(7)"[169][146][169]"
6999 RETURN
7000 A(0)=197:A(1)=213:A(2)=229:A(3)=245
7002 FORI=0TO10:B(I)=INT(RND(0)*7.9)+200:NEXT
7005 FORI=0TO24:POKE54272+I,0:NEXT:POKE54296,15
7010 POKE54278,14*16+9:POKE54275,8
7020 POKE54278+7,14*16+10:POKE54273+7,20
7050 I=0
7100 POKE54276,65
7190 POKE53272,A(IAND3)
7200 FORJ=10TO1STEP-2:POKE54273,J:POKE53270,B(J):NEXT
7210 POKE53272,A((I+1)AND3)
7220 FORJ=10TO1STEP-2:POKE54273,J:POKE53270,B(J):NEXT
7230 POKE53272,A((I+2)AND3)
7240 POKE54273,4:POKE646,(IAND3)+1:PRINT"[147]";:FORJ=1TO50:NEXT
7300 I=I+3:IFI<72THEN7100
7400 POKE53272,21:POKE54276,0:POKE54276+7,0
7999 RETURN
8000 FORI=1TO2300:NEXT
60000 RETURN